home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / defstruc.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  14.4 KB  |  236 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01)
  5.    %STRUCTURE-REF SETF-EXPANDER %STRUCTURE-STORE SETF %SET-DOCUMENTATION
  6.   )
  7. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  8.    DS-SYMBOL-OR-ERROR REMOVE-OLD-DEFINITIONS
  9.    #Y(DS-SYMBOL-OR-ERROR
  10.       #18Y(00 01 00 00 00 02 A9 86 2D 03 00 19 02 D4 D5 AB 5A 02)
  11.       "~S: this is not a symbol: ~S" DEFSTRUCT
  12.   )  )
  13. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  14.    DS-ARG-DEFAULT REMOVE-OLD-DEFINITIONS
  15.    #Y(DS-ARG-DEFAULT
  16.       #34Y(00 02 00 00 00 03 93 54 54 70 A8 83 63 0D AB D4 AA 59 02 14 59 02 19
  17.            04 95 19 04 8A 00 7A AB 93 1A 71
  18.           )
  19.       %FUNCALL
  20.   )  )
  21. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  22.    DS-MAKE-CONSTRUCTOR-BODY REMOVE-OLD-DEFINITIONS
  23.    #Y(DS-MAKE-CONSTRUCTOR-BODY
  24.       #172Y(00 05 00 00 00 06 D4 D5 AF 02 21 80 4D AF 23 04 80 53 99 20 80 53
  25.             C4 14 AD 59 02 14 73 02 73 01 5B AC 92 1F 80 77 8B 00 92 54 70 DC
  26.             B4 02 21 80 46 B4 23 04 80 4D B4 23 0C 80 51 CC 14 D5 AB 59 03 14
  27.             95 53 1B 80 49 D7 96 54 54 70 59 02 14 59 03 EA 7B 02 16 01 7A 00
  28.             1A 48 D6 D7 AF 73 02 AE 59 03 1A FF B6 C3 1A FF AE DA AD DB D7 9D
  29.             54 70 73 02 59 04 1A FF A4 DD D7 B5 73 02 D5 AC 59 04 1A FF BE DE
  30.             AA DF 31 02 1F 1A FF B5 CB 1A FF AC E3 96 54 54 54 70 8B 05 59 03
  31.             1A FF B1 16 01 A8 77 CC 00 E4 6B 02 20 31 02 1F 19 06
  32.            )
  33.       LET OBJECT %MAKE-STRUCTURE QUOTE LIST MAKE-LIST MAKE-ARRAY :ELEMENT-TYPE
  34.       SETF %STRUCTURE-REF NTH (OBJECT) VECTOR SVREF AREF THE (OBJECT)
  35.   )  )
  36. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  37.    DS-ARG-WITH-DEFAULT REMOVE-OLD-DEFINITIONS
  38.    #Y(DS-ARG-WITH-DEFAULT
  39.       #35Y(00 02 00 00 00 03 AA 85 34 10 AA AA 36 06 BE EC BF EB 6A 78 89 00 06
  40.            95 19 04 94 19 03 AB A9 2E 02 19 04
  41.           )
  42.       #.#'FIRST #.#'EQ DS-ARG-DEFAULT
  43.   )  )
  44. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  45.    DS-MAKE-BOA-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
  46.    #Y(DS-MAKE-BOA-CONSTRUCTOR
  47.       #286Y(00 06 00 00 00 00 8B 06 99 54 70 D4 A9 D5 36 02 83 DC 07 D6 A9 D5
  48.             36 02 2F DC 14 89 00 07 16 01 5B A9 5B 1A 22 D7 D8 B1 AD 8B 04 AE
  49.             5A 05 92 53 1A 10 7E 01 00 14 D9 D5 36 02 83 DC 08 A8 85 34 6D 92
  50.             14 7B 02 7A 01 A9 84 B6 67 16 02 A8 78 65 00 A9 01 02 1A 05 A9 7B
  51.             00 7A 02 AA 83 B6 0B 7E 02 01 14 D9 D5 36 02 84 DC 6C A8 30 65 16
  52.             02 EA DA AB D5 36 02 2F DC 71 01 02 1A 15 00 16 03 1A 29 DC 93 54
  53.             70 59 02 1A 2D A9 B1 68 07 7B 00 7A 02 AA 83 B6 0B 7E 02 01 14 D9
  54.             D5 36 02 84 DC 69 8A 00 59 DA A9 30 65 55 16 03 14 DC AC D5 36 02
  55.             69 DC 89 00 4C 00 EA DD DD AE D5 36 02 2F DC 71 01 02 8A 02 16 7E
  56.             02 01 14 D9 D5 36 02 83 DC 0B A9 B4 68 07 7B 00 7A 02 89 02 6A A8
  57.             30 65 16 02 EA 5B B2 5B 1A 18 7E 01 00 53 1C 10 8B 00 B1 D5 36 02
  58.             83 DC 07 8B 00 B5 68 07 7B 02 7A 01 A9 84 B6 64 16 02 A8 78 65 00
  59.             31 02 20 72 6B 04 20 DE AC AA B4 B4 B4 B4 B4 66 05 0B 59 04 19 0B
  60.            )
  61.       &KEY #.#'EQ &ALLOW-OTHER-KEYS
  62.       "~S ~S: the argument list for the BOA contructor ~S must not contain ~S: ~S"
  63.       DEFSTRUCT #.LAMBDA-LIST-KEYWORDS &OPTIONAL DS-ARG-WITH-DEFAULT &REST &AUX
  64.       DEFUN DS-MAKE-CONSTRUCTOR-BODY
  65.   )  )
  66. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  67.    DS-MAKE-KEYWORD-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
  68.    #Y(DS-MAKE-KEYWORD-CONSTRUCTOR
  69.       #61Y(00 06 00 00 00 00 D4 AF D5 5B AD 1A 19 8B 00 A9 68 02 59 01 1A 07 8B
  70.            00 92 53 1B 71 00 14 AB 77 CA 02 16 01 7A 00 92 20 6D 16 01 A8 2F CC
  71.            16 01 72 B0 B0 B0 B0 B0 66 05 03 59 04 19 07
  72.           )
  73.       DEFUN &KEY DS-ARG-DEFAULT DS-MAKE-CONSTRUCTOR-BODY
  74.   )  )
  75. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  76.    DS-MAKE-PRED REMOVE-OLD-DEFINITIONS
  77.    #Y(DS-MAKE-PRED
  78.       #121Y(00 04 00 00 00 05 AB 02 21 2E 00 14 D7 AE D8 AF 02 21 33 AF 24 07
  79.             80 42 DC DD AF 23 0A 30 E1 E2 B1 73 03 DF E3 B2 E4 6B 02 1F D5 B4
  80.             73 02 73 03 59 02 14 31 02 1F 1A 37 D4 D5 D6 AF 73 02 73 02 73 02
  81.             59 01 1A 45 D9 D5 B0 73 02 C4 1A 64 DF E0 D5 B3 73 02 73 03 59 01
  82.             1A 58 DC E5 E1 E6 B1 73 03 DF E7 E8 B3 73 03 D5 B4 73 02 73 03 59
  83.             04 14 73 04 73 01 31 02 20 19 05
  84.            )
  85.       PROCLAIM QUOTE INLINE DEFUN (OBJECT) %STRUCTURE-TYPE-P (OBJECT) LIST AND
  86.       (CONSP OBJECT) 0. EQ (CAR OBJECT) > (LENGTH OBJECT) NTH (OBJECT)
  87.       (SIMPLE-VECTOR-P OBJECT) (LENGTH OBJECT) SVREF OBJECT
  88.   )  )
  89. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  90.    DS-MAKE-COPIER REMOVE-OLD-DEFINITIONS
  91.    #Y(DS-MAKE-COPIER
  92.       #85Y(00 03 00 00 00 04 A9 02 21 1F A9 23 00 1B 00 14 D8 AD D9 AD 02 21 20
  93.            AD 23 00 1F 97 20 1F CD 14 73 04 73 01 31 02 20 19 04 D5 D6 D7 AE 73
  94.            02 73 02 73 02 59 01 1A 58 C4 1A 65 C5 1A 62 DC DD DE DF E0 E1 D6 9E
  95.            54 70 73 02 73 04 73 02 73 02 E2 31 02 1F 1A 4A
  96.           )
  97.       LIST PROCLAIM QUOTE INLINE DEFUN (STRUCTURE) (%COPY-STRUCTURE STRUCTURE)
  98.       (COPY-LIST STRUCTURE) LET* (OBJ-LENGTH (ARRAY-TOTAL-SIZE STRUCTURE))
  99.       OBJECT MAKE-ARRAY OBJ-LENGTH :ELEMENT-TYPE
  100.       ((DOTIMES (I OBJ-LENGTH OBJECT) (SETF (AREF OBJECT I) (AREF STRUCTURE I))
  101.       ))
  102.       (LET* ((OBJ-LENGTH (LENGTH STRUCTURE)) (OBJECT (MAKE-ARRAY OBJ-LENGTH)))
  103.        (DOTIMES (I OBJ-LENGTH OBJECT)
  104.         (SETF (SVREF OBJECT I) (SVREF STRUCTURE I))
  105.   )  )))
  106. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  107.    DS-MAKE-ACCESSORS REMOVE-OLD-DEFINITIONS
  108.    #Y(DS-MAKE-ACCESSORS
  109.       #131Y(00 04 00 00 00 05 5B AA 92 1F 80 70 8B 00 92 53 1C 80 5C AD 8B 01
  110.             68 00 93 54 70 94 54 54 54 70 D5 D6 D7 AD B6 73 01 AD 73 04 73 02
  111.             73 02 D5 D6 D8 AE 73 02 73 02 73 02 D9 AD DA DB AE B8 02 21 18 B8
  112.             23 0A 1F A2 20 24 CC 14 DD B2 59 03 14 73 03 73 04 59 03 16 03 1A
  113.             17 DC D6 BB 73 02 DD B3 59 04 1A 6A DF B1 E0 31 02 1F 1A 62 CB 1A
  114.             5A 00 14 AB 77 CA 02 16 01 7A 00 1A FF 8C 16 01 A8 2F CC 19 06
  115.            )
  116.       CONCAT-PNAMES PROCLAIM QUOTE FUNCTION INLINE DEFUN (OBJECT) THE
  117.       %STRUCTURE-REF OBJECT LIST NTH (OBJECT) AREF SVREF
  118.   )  )
  119. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  120.    DS-MAKE-DEFSETFS REMOVE-OLD-DEFINITIONS
  121.    #Y(DS-MAKE-DEFSETFS
  122.       #152Y(00 04 00 00 00 05 5B AA 92 1F 80 85 8B 00 92 53 1C 80 71 A8 83 BD
  123.             80 6C AD 8B 01 68 00 93 54 70 94 54 54 54 70 D5 AB D6 D7 B5 02 21
  124.             21 B5 23 04 3B 9F 20 80 43 D8 E6 D8 E7 DB B2 73 04 D2 14 31 03 1F
  125.             14 73 05 59 01 16 03 1A 3A C6 1A 19 D8 D9 DA DA BA 73 02 73 02 DB
  126.             B1 B1 02 21 6E D8 DD DA B4 73 02 DE 31 03 1F 14 59 06 1A 56 D8 DF
  127.             D8 E0 B1 E1 6B 03 1F CC 1A 46 D8 E3 D8 E4 DB B2 73 04 CF 1A FF BA
  128.             00 14 AB 77 CA 02 16 01 7A 00 1A FF 77 16 01 A8 2F CC 19 06
  129.            )
  130.       CONCAT-PNAMES DEFSETF (STRUCT) (VALUE) LIST '%STRUCTURE-STORE QUOTE
  131.       STRUCT VALUE 'THE (VALUE) 'SETF 'NTH (STRUCT) (VALUE) 'SETF 'AREF (VALUE)
  132.       'SETF 'SVREF (VALUE)
  133.   )  )
  134. #Y(#:TOP-LEVEL-FORM-13
  135.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFSTRUCT
  136.    REMOVE-OLD-DEFINITIONS MACRO
  137.    #Y(DEFSTRUCT
  138.       #1327Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 80 4D 94 54 70 95 54 71 A9
  139.              5B 5C 01 02 5C D6 01 03 5C D6 D6 D6 5B B7 5B D6 01 04 5E 17 86 34
  140.              07 7E 17 15 04 17 54 FE BD 86 2D 29 BD 85 A1 25 BC 5B A9 83 B6 82
  141.              31 7E 01 00 14 86 A1 04 A8 59 01 EA A8 85 34 80 DF D3 14 D8 5E 19
  142.              D8 AC 5A 04 AA 2D 01 19 03 D7 D8 5E 19 5A 02 92 53 25 05 80 BD C4
  143.              FF 1A 80 D0 92 54 53 1C 76 FF 1A 80 C7 DB 5E 18 68 08 7B 14 1A 80
  144.              BD 92 1A 22 DE D8 5E 1A 96 54 54 1A 80 9D 92 54 1F 65 92 54 70 A8
  145.              2D 09 93 54 54 1F 64 93 54 54 70 86 34 60 93 54 14 7B 15 16 01 1A
  146.              80 90 92 54 1F 80 8B 92 54 70 A8 2D 09 92 FD 16 01 1A 80 7E 92 54
  147.              1F 80 79 92 54 70 A8 2D 09 92 FC 16 01 1A 80 6C DF D8 5E 19 5E 19
  148.              5A 03 89 10 75 92 FA 1A 80 5C E0 5E 19 E3 68 08 E4 E5 AC D0 72 73
  149.              03 59 03 1A 20 92 54 70 92 1F 12 8B 00 24 0C 0D E1 D8 94 54 70 AB
  150.              2B 04 0E 92 54 53 EA A8 85 2D 53 E0 A9 59 02 F9 16 01 1A 26 92 54
  151.              53 F7 1A 20 75 0C 1A 1C C0 F5 1A 18 E7 D8 5E 19 95 70 5A 03 8B 00
  152.              85 A1 FF 2F D2 1A FF 18 92 54 53 1C 65 F5 7A 01 1A FE F7 B2 02 52
  153.              F4 1B 81 32 B7 23 02 81 37 8A 0F 81 33 5D 17 D8 5E 17 5A 02 BD 69
  154.              4E 5D 18 79 02 13 13 89 12 81 28 5D 19 5E 16 68 08 59 01 FC 1A 81
  155.              23 03 1D 1A 81 79 5D 1E D8 5E 17 B4 5A 03 5D 1F D8 5E 17 5E 17 5A
  156.              03 5D 22 D8 04 1A 1A 82 3C 5D 23 D8 5E 1A AC BA 5A 04 7E 16 07 04
  157.              16 54 F0 8A 0E 81 38 71 8B 00 A8 5D 21 36 01 6A 98 8A 00 57 5E 18
  158.              A9 C0 57 55 FA A8 03 20 57 14 B7 86 2A 4F 5D 24 A9 03 25 57 14 6B
  159.              00 17 78 65 06 1C 06 53 54 70 78 AB 07 8C 02 5B 1A 81 68 92 1A 19
  160.              5D 28 D8 5E 1E B0 AD 5A 04 92 54 71 5B 2F D1 1A 81 4F 7E 01 00 1F
  161.              66 92 53 14 A8 B2 36 06 03 26 EC 03 27 EB 6A 78 8A 00 57 94 1F 5D
  162.              94 54 70 A8 83 63 17 E0 5D 29 AC 68 08 E4 5B AC 73 03 73 03 7B 09
  163.              36 01 78 A4 00 14 7B 0A 93 54 71 A9 2F D1 16 01 94 54 71 1A 81 03
  164.              95 54 54 54 71 02 1A 80 F1 5D 2B D8 5E 21 AF B4 5E 24 5A 05 89 00
  165.              69 AB 83 BD 6E 95 54 54 54 71 00 1A 80 D6 5D 2E D8 5E 21 AB B0 B5
  166.              9B 54 54 54 70 5A 06 03 2F 1A 81 59 16 02 B3 02 52 1C FE CB F4 1C
  167.              FE CE B7 24 02 06 BD 5D 16 2E 08 F9 BB 02 21 FE CF 8A 12 FE D8 5B
  168.              BB 36 07 78 6A 12 B8 02 22 07 5D 1A 5E 16 2E 08 FA B3 02 21 12 B3
  169.              23 1B 0E B3 23 1C 0A 9D 1F FE C2 8B 0B 24 1B FE BC B1 86 35 FE BC
  170.              B1 D6 88 01 30 FE B5 B1 86 A7 05 B3 02 21 FE B4 B3 02 22 03 03 20
  171.              EE 8B 16 85 2E FE C1 89 0E FE C8 A7 F7 8A 0A 80 6D 9D 1F 80 69 B5
  172.              9E 54 70 81 30 80 61 03 31 14 D8 5E 17 B6 5A 03 94 EB 74 00 1A 80
  173.              85 5D 34 D8 04 1C 1A 80 C6 75 03 1A 80 C7 89 00 78 74 03 1A 80 BF
  174.              8B 00 93 54 70 A9 23 2A FF 2E A9 24 2C FF 48 A8 96 54 54 54 70 82
  175.              2D FF 2F 95 54 54 71 93 14 2F D1 16 02 92 54 54 EA A8 84 B6 55 16
  176.              01 16 02 7A 01 A9 84 B6 FE A8 16 05 89 0A FF 93 AC B2 79 02 33 08
  177.              B3 02 21 12 8A 0A 0F 5B 9B F4 14 5E 17 5D 32 5C 73 05 7B 03 7C 08
  178.              B0 AF 5B A9 83 B6 80 7B 7E 01 00 01 02 94 1F FF 7B 7E 02 01 94 54
  179.              53 EA A8 83 63 17 E0 5D 33 AB 68 08 E4 5B AC 73 03 73 03 7B 06 36
  180.              01 78 A4 00 14 7B 07 A9 B1 36 06 03 26 EC 03 27 EB 85 78 FF 52 5C
  181.              5B 96 1F 2B 96 54 71 A8 83 B6 22 8B 00 93 54 70 A9 23 2A FF 49 A9
  182.              23 2C 0A 03 35 14 D8 04 21 14 AC 5A 03 92 EE 16 02 92 54 54 EA 1A
  183.              5A 16 01 AB AF AC AC AC 73 05 7B 0A 16 04 7C 02 7A 01 1A FF 80 16
  184.              02 92 F0 16 01 AB 78 65 03 A9 78 65 01 AA 78 65 02 5B BB 1A 27 A8
  185.              B7 5E 1A BB B4 B3 2B 06 36 1A 14 8B 00 92 20 6F 89 14 02 92 FE A8
  186.              B7 5E 1A BB B4 B3 2B 06 37 14 7B 02 16 01 7A 00 92 20 62 16 01 A8
  187.              2F CC 16 01 EA 5D 38 AB 5B 1A 80 53 BA B7 5E 1A B7 2B 04 44 1A 80
  188.              95 14 5E 1A B9 2B 03 45 1A 80 91 5D 42 5D 3C 5E 1F 73 02 5D 4B 5E
  189.              17 59 04 1A 80 B6 7E 01 00 14 AF 36 06 03 39 EC 03 27 EB 6A 78 5D
  190.              3A 5D 3B 5D 3C 5E 1C 73 02 5D 3D 6B 02 1F AD 73 03 93 54 71 A9 2F
  191.              D1 16 02 7C 02 7A 01 A9 84 B6 4F 16 03 5D 3E 5D 3F 5D 40 5D 41 AE
  192.              AE 6B 01 17 AC 5D 42 5D 3C 5E 1C 73 02 5D 43 5D 1B 5D 3C 5E 17 73
  193.              02 5D 3C 5E 16 73 02 5D 3C 5E 1D 73 02 5D 3C B8 73 02 B7 6B 05 1F
  194.              73 04 73 01 6B 02 20 6B 02 1F 8A 0D 04 89 12 FF 61 00 14 89 14 FF
  195.              66 00 14 5E 1A B9 5E 1A B3 66 04 46 5E 1B BA 5E 1B B4 66 04 47 5D
  196.              48 5D 49 5D 3C 5E 1F 73 02 5D 4A 6B 02 1F B8 73 03 89 14 FF 46 5D
  197.              4C 5D 3C 5E 1F 73 02 5D 4D 31 02 1F 14 5D 3C 5E 1F 73 02 73 03 6B
  198.              05 20 31 03 1F 19 1B
  199.             )
  200.       2. MACRO-CALL-ERROR 0. "~S: invalid syntax for name and options: ~S"
  201.       DEFSTRUCT
  202.       #S(HASH-TABLE EQ (:INITIAL-OFFSET . 209.) (:NAMED . 183.) (:TYPE . 177.)
  203.          (:PRINT-FUNCTION . 140.) (:INCLUDE . 115.) (:PREDICATE . 89.)
  204.          (:COPIER . 71.) (:CONSTRUCTOR . 39.) (:CONC-NAME . 7.)
  205.         )
  206.       "" "MAKE-" CONCAT-PNAMES DS-SYMBOL-OR-ERROR
  207.       "~S ~S: argument list should be a list: ~S"
  208.       "~S ~S: At most one :INCLUDE argument may be specified: ~S" FUNCTION
  209.       "~S: Use of :PRINT-FUNCTION implicitly applies FUNCTION.~@
  210.                                     Therefore using ~S instead of ~S."
  211.       WARN "-PRINT-FUNCTION" LAMBDA (STRUCT STREAM DEPTH) (STRUCT STREAM DEPTH)
  212.       "~S ~S: unknown option ~S" "~S ~S: invalid syntax in ~S option: ~S"
  213.       "~S ~S: not a ~S option: ~S" "-P"
  214.       "~S ~S: There is no :PREDICATE on unnamed structures." "-" "MAKE-"
  215.       "COPY-" VECTOR LIST "~S ~S: invalid :TYPE option ~S"
  216.       "~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
  217.       "~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S" 1.
  218.       DEFSTRUCT-DESCRIPTION
  219.       "~S ~S: included structure ~S has not been defined."
  220.       "~S ~S: included structure ~S must be of the same type ~S." #.#'COPY-LIST
  221.       3. #.#'FIRST #.#'EQ
  222.       "~S ~S: included structure ~S has no component with name ~S." "DEFAULT-"
  223.       :READ-ONLY
  224.       "~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
  225.       :TYPE SUBTYPEP
  226.       "~S ~S: The type ~S of slot ~S should be a subtype of the type defined for the included strucure ~S, namely ~S."
  227.       "~S ~S: ~S is not a slot option." TYPEP
  228.       "~S ~S: structure of type ~S can't hold the name." SYMBOL "DEFAULT-"
  229.       "~S ~S: There may be only one slot with the name ~S."
  230.       "~S ~S: ~S is not a slot option." DS-MAKE-BOA-CONSTRUCTOR
  231.       DS-MAKE-KEYWORD-CONSTRUCTOR 4. #.#'THIRD SVREF GET QUOTE
  232.       ('DEFSTRUCT-DESCRIPTION) EVAL-WHEN (LOAD COMPILE EVAL) LET #.#'LIST %PUT
  233.       'DEFSTRUCT-DESCRIPTION DS-MAKE-PRED DS-MAKE-COPIER DS-MAKE-ACCESSORS
  234.       DS-MAKE-DEFSETFS SETF DOCUMENTATION ('STRUCTURE) 'STRUCTURE-PRINT REMPROP
  235.       ('STRUCTURE-PRINT)
  236.   )  )